Manampilkan data Dari database ke gridview 
Start dahulu xampp 
Kasih gridview nya 
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Moo Laik Sisi — 
Setelah menambahkan datagrid 
Kita ke module 


Kemudian tambahakan 

Public da As Odbcdatareader 

Kita akan isikan data ke gridview mengunakan da dan ds 
Public ds DataSet 

Setelah membuat 
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peress 


Til Ke) Ct, Sx eS 
Kembali ke deseign lalu double klik 

Kita buat sub lagi 

Sub tampildgv() 

Untuk koding nya koneksikan database 

Bukadb() 

Da sesuai module 

Da = new Odbcadapter(“select”) disini akan pilih field mana saja yg akan di 
tampilkan grid view 
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#3 MASTER ADMIN 


Buka phpmyadmin 
Akan menampilkan field2 di tabel admin 
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localhost / 1270011 / belajar vb X 


ic 
phpMyAdmin 
aae ¢ 
a a w Showing rows 0 - 8 (9 total, Query took 0.0007 seconds ) 


di 
i 
di 


ADMINISTRATOR 
ADMINISTRATOR 
ADMINISTRATOR 


eeoecodcoded 


T 

8 

JE 
I 

J Edi 
J Edi 
J Edi 
I Ed 
P Edi 
J Edi 


> 


TE- ow (Sisik -ai 
Agar menampilkan ke gridview 

Nama sesuai dgn database 

Select kodeadmin, dll form tbl_admin , con 
Dibukadb sudah menkoneksikan 

Ke database nya sehinga tingal buat 

Data yg akan ditampilkan dari tabel admin 

Lalu ds 

Ds = new dataset 

Da.fill(ds, “tbl admin”) nama tabelnya 

Kita akan menampilkan kedalam gridview 
Datagridviewl.datasource—ds.tables(“tbl admin”) 
Cukup sini 
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P - 8 


T.BAUNUSRA JNT Experess 


#4 MASTER ADMIN 


08:45 


16:28 


Coba dirun 

Data bellum tampil disni ketika form ini distart maka data langsung tampil 
Caranya 

Di form load 

Pangil class tampildgv 
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10:05 16:28 


Lalu restart maka datanya sudah muncul 
Edit desainya 


å 04.[Part 4] CODING MENAMPILKAN DATA DARI DATABASE KE DATAGRIDVIEW VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


> b 
b we Modulelvb 


© ApplicationSettings) 
Maps property settings to an a 


10:30 16:28 
a 5 er : 
Ih ec) mt Cait Sisik MP || 
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MẸ MASTER ADMIN 


TAMBAH | EDIT CERAR 


Diagnostics session: 6 seconds 


TAMBA KODE ADMIN 


11:10 16:28 


IN alm Tw FS 0 i 
Kemudian datanya sudah muncul 

Sudah muncul semua kemudian 

Tambah lalu simpan apakah datasudah update disni 

Tapi namun data belum diupdate diaplikasi 

Didatabse sudah ada 

Diaplikasi belum update 

Caranya 

Klik tombol tambah 


Karena kita akan menampilkan data nya setelah disimpan datanya 
Setelah pesan berhasil maka 
Pangil datagrigview 
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i) elmo cit] sisix ca 
Dan dicoba kembali 
Disni juga datanya langsung ke update 
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W MASTER ADMIN 


TAMBAH EDIT 


it] elm cal] six aoe 
Disini ada data kosong mau menghingkan 

Cara seperti ini agar tampilan menjadi rapi 

Hilangkan 
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TAMBAH 


GI DataGridView Taska 


DataGridView! 


(ApplicationSettings) 
Maps prope 


14:14 16:28 


Maka dibawahnya kosong hilang 
Ini juga hilangkan 
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DataGridView Tasks 


+ UpplicationSettings) 
Maps property settings to an a 


1) mma calm) Bisix — 
Maka menjadi rapih 

Nanti akan kita rapihkan 

Kita akan buat huruf besar menjadi bold dan datanya ditengah2 


module 
System.Data. Odbc 


Public conn As OdbcConnection 
Public cmd As OdbcCommand 
Public tempatDB As String 
Public rd As OdbcDataReader 
Public da As OdbcDataAdapter 
Public ds As DataSet 
Sub bukaDB() 
Try 
tempatDB = ("Driver={MYSQL ODBC 3.51 
Driver};Database=db keuangan;uid=root" ) 
conn = New OdbcConnection(tempatDB) 
If conn.State = ConnectionState.Closed Then 
conn. Open() 
'MsgBox("Koneksi Database Berhasil", vbInformation, "Koneksi 
Sukses") 
End If 
Catch ex As Exception 
MsgBox("Koneksi Database Gagal", vbExclamation, "Koneksi Gagal") 


End Try 
End Sub 


End Module 


Form 
Imports System.Data.Odbc 
Public Class form master 
Private Sub Buttonl Click(sender As Object, e As EventArgs) Handles 
Buttonl.Click 
bukaDB( ) 


End Sub 


Sub TIDAKSIAPDIISI () 
txtkodeadmin. Enabled False 
txtnamaadmin. Enabled False 
txtkatasandi.Enabled = False 
ComboBox1.Enabled = False 


End Sub 

Sub SIAPISI() 
txtkodeadmin.Enabled = True 
txtnamaadmin.Enabled = True 
txtkatasandi.Enabled = True 


ComboBox1.Enabled = True 
End Sub 


Sub KOSONGKANTEXT () 
txtkodeadmin. Text 
txtnamaadmin. Text 
txtkatasandi.Text 
ComboBox1.Text = "" 

End Sub 

Sub KONDISIAWAL ( ) 
btntambah. Text = "TAMBAH" 
btnedit.Text = "EDIT" 


End 
Sub 


End 


Sub 


btnhapus.Text = "HAPUS" 

Sub 

ISICOMBOBOXI ( ) 
ComboBox1. Items .Add ("ADMIN") 
ComboBox1. Items .Add( "USER" ) 
Sub 


TAMPILGDV () 
bukaDB() 
da = New OdbcDataAdapter( "SELECT kodeadmin, namaadmin, katasandi, level from 


tbl admin", conn) 


End 


Sub 


ds = New DataSet 

da.Fill(ds, "tbl admin") 

DataGridViewl.DataSource = ds.Tables("tbl admin") 
Sub 


URUTANOTOMATIS( ) 

bukaDB() 

Dim urutankode As String 

Dim hitung As String 

cmd = New OdbcCommand("SELECT * FROM tbl admin where kodeadmin in(select 


max(kodeadmin) from tbl admin)", conn) 


End 


rd = cmd.ExecuteReader 
rd.Read() 
If Not rd.HasRows Then 
urutankode = "AGM" + "001" 
Else 
hitung = Microsoft.VisualBasic.Right(rd.GetString(0), 3) + 1 
urutankode = "ADM" + Microsoft.VisualBasic.Right("00" & hitung, 3) 
End If 
txtkodeadmin.Text = urutankode 
txtkodeadmin.Enabled = False 
Sub 


Private Sub btntambah Click(sender As Object, e As EventArgs) Handles 
btntambah. Click 


Try 

If btntambah.Text = "TAMBAH" Then 
btntambah. Text = "SIMPAN" 
btnhapus.Text = "BATAL" 
SIAPISI () 
URUTANOTOMATIS () 
txtnamaadmin.Focus () 

ElseIf txtkodeadmin.Text = "" Then 
MsgBox("Kode tidak boleh kosong", vbExclamation) 
txtkodeadmin. Focus () 

Elself txtnamaadmin.Text = "" Then 
MsgBox ("Kode tidak boleh kosong", vbExclamation) 
txtnamaadmin. Focus () 

ElseIf txtkatasandi.Text = "" Then 
MsgBox("Kata Sandi tidak boleh kosong", vbExclamation) 
txtkatasandi.Focus () 

ElseIf ComboBoxl.Text = "" Then 
MsgBox("Level tidak boleh kosong", vbExclamation) 
ComboBox1. Focus () 

Else 
bukaDB() 


Dim simpan As String 

simpan = "INSERT INTO tbl admin values('" & txtkodeadmin.Text & 
"rot" & txtnamaadmin.Text & "','" & txtkatasandi.Text & "','" & ComboBox1.Text & 
aa 

cmd = New OdbcCommand(simpan, conn) 

cmd.ExecuteNonQuery () 

MsgBox("Data admin berhasil ditambah") 

KOSONGKANTEXT ( ) 

TIDAKSIAPDIISI () 

KONDISIAWAL () 

TAMPILGDV () 


End If 
Catch ex As Exception 

MsgBox ("Data admin gagal ditambah") 
End Try 


End Sub 


Private Sub form master Load(sender As Object, e As EventArgs) Handles 
MyBase.Load 
TIDAKSIAPDIISI() 
ISICOMBOBOX1 ( ) 
TAMPILGDV ( ) 
End Sub 


Private Sub btnhapus Click(sender As Object, e As EventArgs) Handles 
btnhapus.Click 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI () 
KONDISIAWAL () 


End Sub 


Private Sub DataGridViewl CellContentClick(sender As Object, e As 
DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick 


End Sub 
End Class 


